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(5) search_section, Search a g ven message section 
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tie tie on tee the facility name 


27 pinaty search, Perform binary search on index 
1 map_indirect, Map an indirect message file 
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COPYRIGHT (e) 1978, 1980, 1982, 1984 BY 
ITAL EQU Q Pu PRENT _GORPORATION, MAYNARD, MASSACHUSETTS. 


1G 
LL 
HIS SOFTWARE IS PURI SHED UNDER A LICENSE AND MAY BE USED AND cote 
NLY IN Meee NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
Act SION THE ABOV Vg lth NOTICE. THIS SOFTWARE OR ANY OTHER 
OPIES THEREOF MAY NOT BE PROV 

THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeRPORAT i NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ooo ro 


IARRRSAARASASEALALALASLASELE SELES SESE REE ES ERR SEER ERE S EERE ERE ERE R SEER REE EE SY 


Author 
Tim Halvorsen, Nov 1979 
Modified by 


v03-010 MSHO053 Michael S. Harvey 29-May-1984 
Verify ey - and length of argument List. 


v03-009 LJK0278 ence J. Kenah 88-May-1984 
The chen e in Lkder 
call an internal image activator subroutine make sure 
that messege vectors hang around. Put code into separate 
program section to ease word displacements. 


v03-008 LJK0275 ence J. Kenah 17-Apr-1984 


tall SYSSIMGF IX pe an indirect message section is meoped 


to make sure that the message vectors are made permanen 


v03-007 #802 Benn Schreiber 5-Jan-1984 
* Fail to image activate a message tile” “4 not 
terminate the search, 
vO3-006 WMC C0001 Wayne Cardoza 20-Sep-1983 
Don't probe default message ogainst user mode. 
v03-005 PCG0001 Peter George 23-Ma ay. t 985 
Add processing for SComb ne’' message flag. This b 


be reduced by default process flags. 


s overkill. It is only necessary to 
° 


Page 
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* 


; diverts 
that the pessege flags specified in the system service call 
e 


8 5 
sci = Got menage tent tren seems cote CHETAN: BRE ACURA 


Fix PROBE ing problems and adapt to bein ne an all-mode 
service x attempt to write a possibly read-only 
message section. Start checking message sections. 


8 : V03-004 DWT0040 David Thiel 14-Apr-1982 
60 ; sengorer te? remove check for fixup vector after 
61 ; act vating image. s avoids problems with message 
09 86 : files Linked as executables. 
64 : v03-003 pwt0037 David Thiel 5-Apr-1982 
0 65 ; Return a message even if a bad message section is 
Bp 66 : found. 
09 68 ; v03-002 pwT0035 David Thiel 31-Mar-1982 
0000 19 ; a user mode. 
itd ue : v03-001 DWT003 David Thiel 25-Mar-1982 
0000 73; 
0000 74; 
0000 3 3 
0000 76 ; 
0000 77: 


tree Se ge a all accesses to message sections 


$$ -—— 4 


.-e | 
SYSGETMSG - Get message text from message cod 16-SEP-1984 217: AX/VMS Macro v04-00 P 
v04- ° 2 ta misty bg:35:¢8 SYS.SRCISYSGETMSG.MAR; 1 = 3) | 


79 ; | 
0 ; Define system definitions 
0 : | 
. i $ssdef ; Define system status values | 
4 $stsdef : Define format of a message code | 
0 5 psidef ; Processor status longword definitions 
4 $ S$plvdef ; Privileged vector format | 
00 Smscdef i; Message section format 
48 88 Smidxdef ; Message index format 
00 89 $Smrecdef ; Message definition record 
88 90 $mfacdef : Facility definition record 
0 91 opde ; Opcode definitions 
00 35 Siacdef 3 image activator flags 
0000 9 S$getmsgdef ; GETASG symbols 
$33 | 
0000 96 ; Argument List offset definitions | 
444 a ; (S arguments to system service) | 
00000004 44 99 msgid = 4 ; Message code to retrieve | 
00000008 0000 100 msglen = 8 ; Address to store message length 
0000069C 0000 101 bufadr = 12 ; Address of buffer descriptor | 
00000019 0000 106 flags = 16 ; Flags for selection of: 
00000000 0000 10 txtind = 0 : Include text portion 
00000001 0900 104 idind = 1 ; Include ID portion of message 
00000002 0090 105 sevind = ¢ : Include severity portion ! 
00000003 0000 106 subind = :; Include subsyaren name 
00000004 0000 107 combine = 4 ; Combine specified and default flags 
00000014 0000 108 outadr = 20 ; Place to store longword with: 
00000000 0000 109 level = 0 ; Detail level of message 
00000001 0000 110 faoarg = 1 ; Number of FAO arguments 
00000002 0000 111 user =2 ; User defined value 
000118 | 
44 M3 : Opcode definitions for code interpreter | 
00000065 0000 116 at_r5_mode = “X65 ; Mode is (r5) 
OO0O00009F 0000 117 absolute_mode = “X9F ; Mode is af 
00009F16 0000 BY {sp_aso ute = <absolute_modeas> ! op$ a Beginning of JSB af... 
00006516 B08 p sb_r = <at_r5_modea8> ! op$_jsb ; JSB (RS) | 
38 ; 3 Local data | 
1 * 
0000) : ¢ -PSECT YFSSYSGETMSG ; Paged PSECT 
90 6 ; Default message if not found (ss$_msgnotfnd) | 
00 128 © | 
45 4D 41 4E 4F 4E 00° 000 129 dfac: .ascic ‘NONAME* ; Facility if not found | 
47 53 4D 4F 4 : 130 dident: .ascii ‘NOMSG' ; Ident if not found 
C 131 didentlen = .-dident 
6D 75 6E 20 65 67 $1 73 73 4D 00° . 4 132 dmsg: .ascic ‘Message number !XL* 
4C 58 21 20 72 65 > Bae 
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ye 800 " ° BreeE 1 obe bSi55:8— PENS Macca, WO cOe eet 7 dl 
1F 133 | 
00000050 i : : fakereclen = 80 ; 7 bytes for voke noqnege record 
: message not foun 
1F 1 inddefnam: 
45 47 41 53 53 45 4D 24 rH 59 53 fl 2 $ -ascic ‘SYSSMESSAGE:.EXE' ; Default name string for IND 
45 58 45 2E 3A $8 
10 F 138 
0 1 3 
3 re ; Severity table 
32 0 126 sevtab: .ascii ‘Ww! 3 Warning 
3 fo ie CT oe i Eveee® 
49 00 i 145 Tascii 'I' : Informational 
46 0034 148 eascii ‘F* ; Fatal error 
F 0035 14 ects *?* 
; 0 8 148 eascii ‘'?' 
F QO 149 eascii ‘'?' 
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-sbttl Get message 


This service provides the capability to retrieve message text from 
the system message file. 


Inputs: 
msgid(ap) = Message code of myssoge to be retrieved. 
peg lence} = Address to store length of result message. 
bufadr(ap) = Address of message buffer descriptor. 
flags(ap) = Input flags indicating parts of message wanted. 
outadr(ap) = Address to store message associated information. 
Outputs: 


Normal c Letion. 

Access violation 

——— not in file, default message given 
Output buffer too small for message 


r0 = ss$_normal 
r ss$_accvio 
r0 = ss$_msgnotfnd 
r0 = ss$_bufferovf 


This is an all-mode service. Therefore, arguments are not checked to 
prevent access violations; rather, an exception handler turns these into 
the appropriate return status. : 
Further, this service does not assume valid message vectors. Since 
message vector entries must be available to user mode calls to $GETMSG, 
all accesses to message vectors are probed against user mode. 


Be Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Se Se Ge Ge 


insarg: — ate #ss$_insfarg,r0 ; not enough arguments specified 
re 

exeS$getmsg:: 
eword 9 “m<r2,r3,r4.r5,r6.r7,r8,r9,r10,r11> 


This is an all-mode service, so arguments are not PROBEd and access 
violations can happen. 


movab g“exe$sigtoret, (fp) ; Establish handier 


Verify sccoss tei tty of argument List. Also, verify that enough 
arguments were specified. 


cmpb (ap) ,#getmsg$_nargs ; Enough arguments specified? 
blssu_— insar ; ssu, no, report error to user 
tstl <getmsg$_nargs*4>(ap) ; Touch last argument, verify accessibility 


Preset section address for emit_facility in case no sections found. 


clrl rii ; Preset section address to zero 


" 
vy 
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The message was not found in any message sections. Return 

a default 1 which says that no message was found and 
| 
| 
| 


ives the actual message code. 


Dae. SeSe te Ge te 


11 = address of message section containing facility name 
5E BO AE 43 omsg: movab =tokerectentep) .s9 ; Allocate fake mrec buffer 
59 5 mov l sp.r ; 79 = Address of fake message record 
02 A C clraq mrec$b_type(r9) ; clear next 8 bytes of record 
99 AG o> 90 movb #didentlen,mrec$b_identlen(r9) Set Length of ident string 
OA AD s=FFSS CF 5 8 movc #didentlen.dident mrec$t_ident(r9) ; sets r3 for later use 
10 Ad F pushab mrec$c_fixedlentdidentlen+ (r9) ; Descriptor of text portion 


7—E 40 8F QA 


movzbl #fakereclen-mrec$c_fixedlen-didentlen-2,-(sp) 
51 FFGD CF. QE 


movab  dmsg,ri 


: | 
: 
6 1 $5 ; If the message is SS$_NORMAL and the severity is eayehing but 1, | 
! 19 : then output NOMSG rather than ‘normal successful completion’. 
00 O46 AC 19 O03 ED ee be cmpzv #sts$v_cond_id,#sts$s_cond_id,msgid(ap),#0 ; SS$_NORMAL? | 
08 i2 44 18 breq 5$ - 7 ar each if net - . 
01 O4 AC 3 4 ED 9 14 cmpzv)  #sts$v_severity,A#sts$s_severity,msgid(ap) ,#@sts$k_success 
: @ B24 1g bneq 20$ ; if mot SS$_NORMAL(S), Tssue NOMSG 
061 7; 
0061 18 : Search all message sections in the current image 
50 _00000000'GF 0 1 0 5s: movl “ctl$gl_getmsg,r0 ; Address of t 
9F16 BF 0 861 pees 1 6$: cmpw , 5 senses lute : Expect J88 eee soggy 
C 12 006D ¢ bneq 8$ : Something else 
58 8 dO Beh mov (r0)+,r8 ; Address of JSB a# target 
0 dD 0072 4 ushl 0 ; Save search context 
70 3610 Bo 5 sbb search_vector ; Do search 
076 6 3; _returns only if not found 
50 BEDO 0076 st po L rd ; Get back simulated PC 
ED 11 pore S r 6$ ; Iterate until RSB 
05 FE AO 91 0078 $0 8$: cmpb -2(r0) ,#op$_rsb ; RSB signals end of List 
63 12 OO7F 1 pnee badsec ; Bad verter red: 
0081 385 
i$ $e : Search all process permanent message sections 
58 00000000'GF DO 0081 236° mov “ctl$gl_ppmsg,r8 ; Get add f . . secti 
0 8 0088 37 beql Yos eee : Srench +t pene sine: A atate pegs 
58 OF AS 9E OOBA 38 movab plv$l_msgdsp+6(r8).r8  ; Simulated PC 
56 10 OO8E 39 bsbb search_vector ; Search the vector 
94 rt ; returns only if not found 
9444 g ; Search the system-wide message section in system space 
58 00000000‘ GF 00 0090 44 ios: movl Gg%etol_sysmsg.ré ; Get address of system-wide section 
13 0097 45 beql 0$ ; branch if none 
58 OE A8 3 8 99 $6 movab plv$l_msgdsp+6(r8),.r8 ; Simulated PC 
47 1 9D 4 bsbb search_vector ; Search the vector 
OO9F 48 3 returns only if not found 
OO9F 49 208: 
OO9F 31 
38 
54 
3? 
3? 
35 
60 
9) 
$3 
64 


ssckar 


OC AE 

er 06 
3 66E 

OOAS 

50 0621 8F 
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f 
79 badsecO: 
80 b 


movzbl 


etary 


t p) 
#6, ryEs feo 

(sp), (r3)+ 
output_info 
#ss$_msgnotfnd,r0 


badsec 
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Descriptor of FAO control string 
Entire message code 

Address to return Length 

Address of buffer descriptor 
Address of default message string 
Create text of message 

Move count byte of message text 
(actual text already there from fao) 
Output the information 

using ri1 as last section searched 
return ‘not found’ status (success) 
Exit with status 


Problem with message vector 
Assist with long branch 


H 5§ 
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This routine is called by the dispatch code in a message 
vector. This may be called multiple times if there is 
more than one image section in the program region. 


Inputs: 


r8 = Address of message section JSB (R5) 
(sp) = Return address 


4 
? 0 
6 $93 
° 38 
94 ; Outputs: 
6 95 
? 38 None 
° 4 Return via RSB if not found, RET if found. 
bee 00 
Boe 01 search_vector: 
0E6 ¢ ifnord #2,(r8),badsec,#psl$c_user ; branch if unable to read next address 
6516 8F 8 B1 Bpes 4 cmpw (r8)+,#jsb_r5 ; Expect JSB (R5) 
1 12 OOF! 4 bneq paves ; Bad vector 
OOF3 05 10$ ifnord #4,(r8),badsec,#psi$c_user ; branch if unable to read next address 
50 88 09 Boe e 06 mov (r8)+,r6 ; Get self-relative offset value 
09 1 OFC 07 beql 90$ ; branch if end of List 
5B FC A840 %F pore 08 movab -4(r8)Cr0),r11 ; Get address of next section to search 
2 B10 09 bsbb search_section ; Search the section, RET if foun 
EC 11 0105 310 brb 10$ ; and keep going until end of List 
05 0108 12 90$: rsb ; done with vector, message not found 
10 13 3 
B18 14 ; Unable to read message vector address List 
819 1? 3 or error activating message section image 
58 D4 019 19 badsec: clrl = r'11 ; No message section 
9 11 10A 18 rb nomsg ; output default message 


-sbttl search_vector, Search a given message vector 
| 
| 
| 
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-sbttl search_section, Search a given message section 


This subroutine searches a given poscegs section for 
he Spec} t eg message code. If the code is found, the 
nformation is returned to the GETMSG caller and the 
service is exited. If the message is not found, return 
via RSB. 

Inputs: 
r1i = Address of message section to search 

Outputs: 
None 


RSB is message not found, RET if message found. 


10¢ 
10C¢ 
10€ 
10¢ 
10¢ 4 
a 
eS 
106 339 
106 331 
10¢ § 
8 
1 4 
10¢ 5 
10¢ § 
10¢ 
Bie 8 
10¢ 9 senabl sb 
010C 40 
010C 41 search_section: 
010C 4g ; 
Bide ry 3 Verify validity of message section 
010C 45 ifnord Gasetc Length. (011) -badeec -fpelSc_user ; Branch if cannot read head 
0402 BF O02 AB BI biig ry. cmpw msc$w_sanity(ri1),#msc$c_sanity ; Check if sanity word matches 
fs AB rt bneq badsec ; branch if illegal 
O11A 49 assume mecScasg eq 0 
O11A 50 assume msc$c_ind eq 1 
O11A 51 case msc$b_type(r11),type=b,<- i; case on section type 
11A 26 10$,- 3; normal section 
11A 5 5$> : indirect section 
E4 11 0122 54 brb badsec ; Illegal message section 
O19¢ 386 
0124 2§ ; Process indirect message sections. The message section 
124 58 ; merely contains the name of the message file to be mapped 
124 59; into user space. If the secion has already been mapped, 
: 2 $ : then ignore the section completely. 
0109 30 0124 6¢ Ss: bsbw  map_indirect ; map the indirect file 
05 ; 7 re rsb 
1 > 3 Process normal message sections. Search the section 
! 66 : for the desired message code. 
1 68 10s: 
1 6° 
1 70; 
1 71 3 Compute the message number to be searched for in 
! i : the message sections 
57 04 AC 00 01 7 mov msgid(ap) .r7 ; get message code 
57 0000007 8F CA ; ¢ 5 bicl #sts 


m_control!sts$m_severity.r7 ; clear sever ity (0 in index) 
s 


3; and control b on top 
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V0a=600 


03 57 F 
sh Sh 

5A 08 AB 
SA 5B 

2¢ 6A 

3 

2 56 

0 A 
00000000’ EF 
AC 50 

78 8F O02 AA 
AS 

0146 

04 51 

07 50 

5A 65101 
cB 

oe ae) 
04 

50. (01 
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a 


5 
1 


bbs Mgtshv.facsp.r7.25$ 3 branch if sogee tts specific 

movzwl r/,r ; if not, use fac. for search 

Verify the validity of the primary subindex 

mov eeest index_off(r11),r10 ; Get offset to primary index 
rii,rTd ; Get address of index 


addl 

ifnord Sa idySe Length (r10),badsec,#psl$c_user ; Must be user readable 

movzwl midx$w_Size r16),r6 Cength of index 

movl opel fe ueer of 
r6,r 


> specify access mode to maximize 
; get length 


movl r16,r0 3 get address of buffer 
sb exe$prober ; test for read access 
Loc r0,badsec ; if lbc, no access 

cmpb midx$b_sanity(r10) ,#midx$c_sanity ; Check sanity byte 

bneq badsec 3 branch if not valid 


Search the index for the message code 


Perform binary search 
branch if subindex pointer 
branch if found 

exit, message not found 


bsbw binery search 
blbs r1,40 

blbs r0,50$ 

rsb 


If offset points to a subindex, then go off to that 
subindex regardless of whether the ae? was matched or 
not, and search it as this must be a higher level index. 


bicl3 #1,r1,r10 ; Compute offset to subindex 
brb 30 3 and start over 


Key found - return data 


addl\3—s r1,r11.r9 ; Address of MSG record 
assume srec$b_identlen e9 mrec$c_fixedlen 


ifnord #mrec$c_fixedlen+1,(r9),badsec,#psl$c_user ; branch if not read 
bsbb output_info 3; Output the information 

— #1,r0 ; success 

re 
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-sbttl output_info, Return information to caller's buffer 
This routine returns the information from a given 
message record to the caller's buffer. 

Inputs: 


r9 = Address of message record (fixed part already probed) 
ri1 = Address of message section 


PEER L LPR L LEEPER PEEP PPE EES 


BEE EWI nonononononononononn = 2 


1 7 
1 
: ; 
1 
! 1 
g 
1 4 
: 5 
: 5 
1 8 Outputs: 
1 ? Information is output 
: § -enabl Lsb 
1 4 output_info: 
50 14 AC 20 18 5 movl outedr Cap) .r0 ; Does user want assoc. info? 
06 =»1 ptae § beql 60$ ; branch if not 
60 04 a9 00 4 . 5 movl mrec$b_level(r9),(r0) : Move 4 byte fields 
He 3 : Initialize output buffer registers 
50 OC AC 4 18D 1 &0$: mov l bufadr(ap),r0 ; Get address of descriptor 
6 60 C 0191 ; movzwl (r0),r6 :; Get length of buffer 
53 04 A0 00 3138 ree mov l 4(r05 3 ; Get address of buffer 
19 445 : If flags argument zero, then use process default flags. 
19 446 ; If combine bit is set, then reduce the flags argument by the 
13 te 3 default flags. 
57 10 AC 9A 019 £69 é5$ movzbl flags(ap).r7 ; Get user flags 
09 12 #019C 450 bneq 67$ : Branch if non-zero 
57 00000000'GF 9A 019 451 movzbl Jag (Sab_msgmask .r7 :; If zero, use process flags 
11 1a re brb 8$ 3 Done processing flags 
OD 57 04 ¥ 1A 453 67S: bbc #combine,r7,68$ : Branch if no combine bit 
50 00000000' GF A 01 $38 movzbl g“ctl$gb_msgmask,r0 ; Complement default flags 
0 D2 189 455 mcoml r0,r : 
7 CA + $28 c r0,r ; Clear the specified flags 
1B $28 : Special case when only text indicator is set (all others off). 
18 o2 3 In this case, do not return any leading punctuation. 
18 189 ass: cmpzv  #0,#4,r7,#latxtind : Only wants text? 
18D $36 beql 9 : if so, skip all leading punc. 
1BF 46 movzbl #*a'%',r0 ; Output a leading ‘%* 
\te 464 bsbb put_char 
1C 465 ; 
Veg re ; Output facility name 
1€4 ies : bbc #subind,r7,70$ 3; Branch if don't want facility 
1¢8 $$ bsbw emit_facility 3: Emit fact tity name 
108 4 9 movzbl #*a‘'=',r0 ; Output a delimiter 
106 $7 bsbb put_char 
1D £38 Output severity character 
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message text from mess 
nfo, Return informat 


Ome - ee ee 
o 
aad 


oO Ore ee ee 
So 
bad 


Nm 
wn 


bbc 
extzv 
movzbl 


movzbl 
bsbb 
Output 
bbe 
movab 


bsbb 
brb 


Output 


ere a Re earn Cae 


te 


code Merge TSBs OSis5i8s FENCES Mecca vOee OO, Page 12, vou" 


#sevind,r7, 608 ranch if Pa t want ew 
#sts$v seyers ty #sts$s_severity, wns set Get sever 
sevtab[r etc aracter corresp. to it 
yt char 3 and output 
*a*-',r0 ; Output a i Teteer 
put_ char 


message identification name 


#idind,r7,90$ ; Branch if don't want ident 
ty ident len(r9), ri ; Address of ASCIC ident 

strin 
Bos" . ; skip adding and then removing 
; the delimiter 


the message text 
r3 3; remove previous delimiter 


ré6 
txtind eq 0 
r7,return_msglen ; Branch if don't want text 
#*a',*,r0 ; Output a comma 
yt gchar 

rd ; Output a space 
out. char 
mrec$b_identlen(r9) ,r1 ; Length of ident string 
mrec$t_ident(r9) criti, ri ; Address of ASCIC text 
put_string ; Output it 


Length of string in buffer (ré6) 


ms Len(ap),ri : Result length desired? 


branch if not wanted 
r6,abufadr(ap),(r1) ; Return the length used 
lsb 


— 
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-sbttl put char, Output a single character 


Output a single character to the output buffer. 
Inputs: 
rs = Number of bytes left in buffer 


r5 = Address of next available byte in buffer 
rO = Character to output 


; Outputs: 


r6 and r3 are updated. 
If buffer overflows, return via RET 


— 

PND tell lett lle lett tet tet tee fs) 
Ta) 

WWIWIAIWIGIRORononononorononunsd 3 


PDI at st st st tt tk at 


MEW" O OONOA UNE Ws — OOOnNOu 


put_char: 
6 05 tstl ré6 ; Any room left in buffer? 
0 15 bleq bufovf : branch if not 
83 0 90 8 movb r0,(r3)+ ; Insert character in buffer 
6 44 8 2 dost r6 3 and decrement space left 
rs 


N § 
- Get message text from message code 
put_string, Output a string 
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-sbttl put string, Output a string 


Output a string to the output buffer. 
Inputs: 


riis Address of sy bev section 

0 implies defaul pessage and no probing 
r¢ = Number of bytes cert n buffer 
r5 = Address of next ava sage byte in buffer 
ri = Address of counted string to be output 


Outputs: 


r6 and r3 are updated. 
If buffer overflows, return via RET 


put_string: 
tstl ri 
beql 10$ ; Don't probe for the default message 
ifnord #1,(r1),badsec!,#psl$c_user ; Count must be accessible 
10$ +4 (rf)+,r ; Get count field 
s r 
beql ene ; Don't probe for the default message 
ifnord r0,(r1),badsec!,#psl$c_user ; Text must be accessible 
20$: cmpl r0,r6 ; Enough room in buffer? 
gtr 508 : branch if not 
subl r0,r6 ; Decrement space left 
Bove r0,(r1),(r3) ; Move string into buffer 
rs 
50$: move r6,(r1),(r3) 3; overflow, only do what we can 
clrl ré6 3; and decrement length used 
bufovf: bsbb return_msglen ; return string Length 
movzwl #ss$_bufferovf,r0 ; set error status 


; and exit service 


3 
a 
7 
& 


invalid message section 
long branch 


7 
6 badsec!: 
78 brw badsec 
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-sbttl emit_facility, Emit the facility name 


Output the facility name to the output buffer. 
Inputs: 


>>>>r>rrrr,r 


meg étee? = Message code 
ril = Address of message section (0 if none) 
r6/r3 = Descriptor of buffer space left 


ws 


wy 
>> 


Outputs: 


TU 
>> 


VEU O OONOUE WN O 


9 
9 
025A 9 r6/r3 are updated. 
025A 9 rO-r2 destroyed. 
8 5A 9 If buffer overflows, return via RET 
025A 9 
O25A 98 emit_facility: 
30 O25A 99 pushr #*m<r4,r5> 3; save registers 
5B DS O025C 600 tstl rii 
38 432613 )=«=(025 601 beat 20$ ; branch if none at all 
50 5B OC AB C1 0260 60 addl3 msc$l_fac_off(r11),r11,r0 ; Address of facility table 
52 5B AB C1 026 60 addl msc$l-size(ri1),rli,r2. ; Address of end of section 
Oc 10 EF O26A 604 extzv #sts$v_fac_no,#sts$s_fac_no,- ; Get facility number of msg 
55 AC 334 605 msgid(ap).r5 
0270 606 ifnord #2,(r0),badsec!,#psl$c_user ; Must be user readable 
54 80 3¢€ 0276 607 movzwl (rO)+,r4 ; Get size of table 
¢° 13 0279 608 beql 20$ : branch if empty table 
52 0 oI os7e 609 10$: cmpl r0,r2 ; Exceeded end of section? 
1B 1E O27E 610 bgequ 20$ 3; branch if so 
0280 611 assume mfac$Sw_number le mfac$b_namelen 
0280 le ifnord #mfac$B_namelen,(r0),badsec!,#psl$c_user ; Must be user readable 
60 55 861 0286 61 cmpw r5,mfacSw_number (r0) 3; Does number match? 
17 13 0289 614 beql 30 ; branch if match found 
51 0 AO 9A O028B 615 movzbl mfac$b_namelen(r0).r1  ; get Lleng* of facility name 
51 O03 Al 9E O28F 616 movab mfac$t_name(r1),r1 3: get length of entire entry 
50 51 CO 0293 617 addl ri,r0 ; skip to next facility definition 
54S #1 0296 618 subl ri,r4 ; decrement Length of table left 
—- 2 8 99 6619 bneq o$ ; branch if more to go 
51 FD61 CF 9E 9B 620 208: movab wdfac.ri 3; Name not found - use default 
06 11 «0 ry 621 brb 40$ : 
51 02 A0 43 Q2A 6 § 30$: movab mfac$b_namelen(r0),r1  ; Address of ASCIC facility name 
23 ae 8 . 623 40$: bsbw ut string ; Output the string 
30 a ry 624 popr “merd,r5 3; restore registers 
5 O2AB 625 rs 


| 
| 
3; any section found yet? 
| 
| 
| 
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-sbttl binary search, Perform binary search on index | 


r2-r4 destroyed. 


AAO 
eee 
ONO 


If the entry is not — and the bottom bit of ri is set, then 


AC 627 
AC 630 ; Perform a gnery search on the specified message index 
vy: ? 1 : searching for the given message code. 
Ae ? § : Inputs: 
635 ; r10 = Address of message (sub) index 
6 § 3 rg = Length of message (sub) index 
? : r? = Desired message code 
63s ; Outputs: 
641 : r0 = Success/failure flag 
ot¢ ; ri = Offset to pescege definition record 
oh : (actually, the contents of the second longword of the entry) 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
2A the offset points to a subindex rather than the definition record 
- $03 and the search should be continued with that subindex. 
rn 651 
A $26 binary_search: 
55 oD A 65 pushl 5 3; save register 
52.4 A 654 clrl re : low Limit = 0 
53 56 10 C3 028 655 subl3 #midx$c_length+8,r6,r3  ; Compute index Length minus overhead 
8 656 ; also minus 1 entry (the 8) 
53 53 FD 8F B 657 ashl #-3,r3,r3 ; Convert to number of entries - 1 
55 53 00 B 658 mov l r3,r5 3 save maximum entry & 
51 04 SB 659 clrl ri ; preset rl to lbc in case of empty 
B 660 ; index, you don't get subindex ptr 
54 53 52 C1 028 1 10$: add\3 ss r2,r3,r4 3 average low and high bounds 
54 54 FF 8F 78 O2C 666 ashl #-1 rd ore ; and divide by two 
53 36 D1 C 66 cmpl r2,r3 3; if low>high, end of search 
1 14 C 664 bgtr 4 3;_branch if end of search 
50 98 AALG re C 665 movg midx$c_entries(r10)(r4),r0 ; Get entire entry in r0/ri 
_ ee _ oe’ D 666 subl3 r0,r7,r0 : check if key matches 
sp 667 3 save comparison result in r0 
ge 13 668 beql 50$ : branch if found 
1A 669 barry 20$ ; branch if in upper half, set new low 
535 54 O01 C3 670 subl #1,74,r3 3 set new upper Limit 
DF 17 671 brb 10$ ; and continue 
52 54 01 C1 20$ add\3 #1, r4,r2 : set new Lower Limit 
d9—Ss«sd1i1 brb 10$ 3; and continue 


Key not found. If the Last comparison shows that 

the desired key falls before the key we are sitting on, 

then return the following key value. We guarantee that 

the entry we return will always have a key value greater 

than the desired “4 f This is because the index is structured 

so that an index which points to subindices use a sey value 

of the highest ne | on that subindex. In order to follow the 

pres gown successfully, we must return the subindex with the 
gher key. 
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binary_search, Perform binary search on ~SEP RCISY SGET MSG.MAR; 1 (10) 
E 684 
50 Be # 685 ios: tstl r ; if desired hog is GTR -# tested 
| cas E 6 § bleq 45$ 3; then execute meus code 
4 06 E9 incl r4 3; use entry of max ong | ey value 
55 4 01 EB 688 cmpl r4,r5 ; off the end of the index? 
05 18 E 689 bgeq 45§ ifs so, leave on last entry in index 
50 08 AA4G 7D F 690 mova midx$c_entries(r10)(r4], +0 3 return offset assoc. with entry 
50 D4 F 691 45$: clrl r0 : failure = key not found 
F $36 ; return with rl of closest entry 
03 =«11 F769 brb 90$ 
O2F9 694 ; 
re 93? $ Key found - return success. 
50 01 00 F9 $99 Sos: movl #1,r0 ; success - key found 
55 BED? FC 698 90$: popl r5 3; restore register 
0S O2FF 699 
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-sbttl map_indirect, Map an indirect message file 


~~ 
_ 


ORE RRR EEE WWW INIinonononononoNONoNN S SS SS GOOD 


This routine processes an indirect message section. | 
It attempts fo map the message file named in the 
message section into user space and marks the section 
rocessed so that the file will not be magged twice. 
hen the message file is mapped via SIMGACT, the 
addresses of the message sections contained in the 
file will be added to the end of the message vector 
List and will be processed later in the search. 


Inputs: 
rill = Address of message section 
Outputs: 


None, return via RET if any fatal errors 


map_indirect: 
ifnowrt #msc$c_length,msc$b_flags(r11),70$.#psl$c_user ; check access 
59 01 AB 00 E2 bbss #msc$v_mapped,msc$b wi guatest? eee 5 ie if already mapped 
53 movab asc Sb_indnamlen(r ll) or ; Address of ASCIC 
(r3)+,r2 ; Descriptor in r2/r 
movab  inddefnam,r1 ; address of default name string 
movzbl (ri1)+,r0 : get length of string 
movab <-512(sp),sp ; allocate paege activator work area 
mova r0,-(sp) ; put default descriptor on stack 
movg r2,-(sp) 3; put input descriptor on stack 
clrq -(sp) ; specify program region 
mov l sp.rl ; get address of stack 


51 FDO8 CF QE 
5E a Cc FF 


),- ; merge image into address space 
1S,- ; using default name string ; 
e ; using dummy inadr (to give region) 
; return address here also 

n {),- ; address of work area 
imgctl=#iac$m_merge!iac$m_expreg ; merge into address space 
ores ‘ 244+512(sp),s ; deallocate descriptors and work page 

imgact_s -0,0,- 

° imgctl=#iac$m_setvector :; let image activator set vectors 

0$: rsb 3 and exi 


SE O218 CE 9E 


05 
Error accessing mapped bit or mapping message file 


0$: 
0$: brw badsec ; exit with default message 
.end 


FD9F = 3531 
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! ;_Psect synopsis ! 


eee eenn eo 


PSECT name Allocation PSECT No. Attributes 


- Os .« 00000000 -)» 00 ¢ 0.) NOPIC USR CON ABS LCL a os NOEXE NORD NOWRT NOVEC BYTE 
SABSS Boone te ( ~ 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR’ EXE RD WRT NOVEC BYTE 
YFSSYSGETMSG 0000036 ( 873.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
fos cnn eenocee eee ee een eens => 
' Performance indicators ! 
eueeeceseeeoeesecussncces 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 £80 00-03 00: 0:00.61 
zounene processing 131 tS 5 0:00:03.82 
Pas 308 se 44 00:00:27.44 
Synbol table sort 0 Se 0:00:04.4 
141 8660: 06.3 0:00:08.4 
wd, table output 13 00:00:00.11 RS, 
Psect synopsis output 3 00:00:00.03 00:00:00.07 
Cross-reference output Bo 88:9 -g8 00:00:00.00 
Assembler run totals 634 00:00:15.28 00:00:45.09 


The working set Limit was 1650 pages. 

60646 bytes (119 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1000 non-local and 41 local symbols. 
0 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 


ee 
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Macro Library name Macros defined 


SS228DUAGE: Ba -MLB;1 7 
“$255$DUA28:CSYSLIBJSTARLET .MLB;2 15 
TOTALS (all Libraries) 22 


1112 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSGETMSG/OBJ=OBJ$:SYSGETMSG MSRC$:SYSGETMSG/UPDATE=(ENHS$: SYSGETMSG) +EXECMLS$/LIB 
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